﻿Public Class MuhOdeGiris
    Inherits Process

    Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
        Select Case e.EventType
            Case EventType.Initialize
				Text = "Ödeme girişi"
                InitialHelp = "Ödeme bilgilerini girin."
                AddCombo("kurum", "Kişi/kurum adı", Muhasebe.Odeme.KurumSource, "nl;width=40")
                AddMoney("tutar", "Tutar", "nl")
                AddDate("tarih", "Tarih", "nl", YMD(Today))
                AddText("aciklama", "Açıklama", "nl;width=40")
				Buttons.Show("Save")
            Case EventType.Save
                Muhasebe.Odeme.Kaydet(Remote, Input("kurum"), Input("tarih"), Input("tutar"), Input("aciklama"))
                Info("Ödeme girişi gerçekleştirilmiştir.")
                Close()
        End Select
    End Sub


End Class
